home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / risc_src.lha / risc_sources / xlib / xws8.t < prev    next >
Text File  |  1990-06-01  |  13KB  |  290 lines
  1. (HERALD XWS8 (ENV TSYS (XLIB INTERFACE)))
  2.  
  3. (DEFINE-FOREIGN XSELECTINPUT*
  4.                 ("XSelectInput" (IN REP/C-POINTER)
  5.                                 (IN REP/INTEGER)
  6.                                 (IN REP/INTEGER))
  7.                 IGNORE)
  8. (DEFINE (XSELECTINPUT DPY W MASK)
  9.         (LET* ((DPY (CHK-DISPLAYP DPY))
  10.                (W W)
  11.                (MASK MASK)
  12.                (RETURN-VALUE (BLOCK (XSELECTINPUT* DPY W MASK) '())))
  13.               RETURN-VALUE))
  14. (DEFINE-FOREIGN XFLUSH* ("XFlush" (IN REP/C-POINTER)) IGNORE)
  15. (DEFINE (XFLUSH DPY)
  16.         (LET* ((DPY (CHK-DISPLAYP DPY))
  17.                (RETURN-VALUE (BLOCK (XFLUSH* DPY) '())))
  18.               RETURN-VALUE))
  19. (DEFINE-FOREIGN XSYNC* ("XSync" (IN REP/C-POINTER) (IN REP/INTEGER)) IGNORE)
  20. (DEFINE (XSYNC DPY DISCARD)
  21.         (LET* ((DPY (CHK-DISPLAYP DPY))
  22.                (DISCARD DISCARD)
  23.                (RETURN-VALUE (BLOCK (XSYNC* DPY DISCARD) '())))
  24.               RETURN-VALUE))
  25. (DEFINE-FOREIGN XEVENTSQUEUED*
  26.                 ("XEventsQueued" (IN REP/C-POINTER) (IN REP/INTEGER))
  27.                 REP/INTEGER)
  28. (DEFINE (XEVENTSQUEUED DPY MODE)
  29.         (LET* ((DPY (CHK-DISPLAYP DPY))
  30.                (MODE MODE)
  31.                (RETURN-VALUE (XEVENTSQUEUED* DPY MODE)))
  32.               RETURN-VALUE))
  33. (DEFINE-FOREIGN XPENDING* ("XPending" (IN REP/C-POINTER)) REP/INTEGER)
  34. (DEFINE (XPENDING DPY)
  35.         (LET* ((DPY (CHK-DISPLAYP DPY)) (RETURN-VALUE (XPENDING* DPY)))
  36.               RETURN-VALUE))
  37. (DEFINE-FOREIGN XNEXTEVENT*
  38.                 ("XNextEvent" (IN REP/C-POINTER) (IN REP/EXTEND))
  39.                 IGNORE)
  40. (DEFINE (XNEXTEVENT DPY)
  41.         (LET* ((DPY (CHK-DISPLAYP DPY))
  42.                (EVENT (MAKE-BYTEV 96))
  43.                (RETURN-VALUE (BLOCK (XNEXTEVENT* DPY EVENT) '())))
  44.               (CONS 'XEVENTP EVENT)))
  45. (DEFINE-FOREIGN XPEEKEVENT*
  46.                 ("XPeekEvent" (IN REP/C-POINTER) (IN REP/EXTEND))
  47.                 IGNORE)
  48. (DEFINE (XPEEKEVENT DPY)
  49.         (LET* ((DPY (CHK-DISPLAYP DPY))
  50.                (EVENT (MAKE-BYTEV 96))
  51.                (RETURN-VALUE (BLOCK (XPEEKEVENT* DPY EVENT) '())))
  52.               (CONS 'XEVENTP EVENT)))
  53. (DEFINE-FOREIGN XIFEVENT*
  54.                 ("XIfEvent" (IN REP/C-POINTER)
  55.                             (IN REP/EXTEND)
  56.                             (IN REP/EXTEND)
  57.                             (IN REP/C-POINTER))
  58.                 IGNORE)
  59. (DEFINE (XIFEVENT DPY PREDICATE ARG)
  60.         (LET* ((DPY (CHK-DISPLAYP DPY))
  61.                (EVENT (MAKE-BYTEV 96))
  62.                (PREDICATE PREDICATE)
  63.                (ARG (CHK-CHARP ARG))
  64.                (RETURN-VALUE (BLOCK (XIFEVENT* DPY EVENT PREDICATE ARG)
  65.                                     '())))
  66.               (CONS 'XEVENTP EVENT)))
  67. (DEFINE-FOREIGN XCHECKIFEVENT*
  68.                 ("XCheckIfEvent" (IN REP/C-POINTER)
  69.                                  (IN REP/EXTEND)
  70.                                  (IN REP/EXTEND)
  71.                                  (IN REP/C-POINTER))
  72.                 REP/INTEGER)
  73. (DEFINE (XCHECKIFEVENT DPY PREDICATE ARG)
  74.         (LET* ((DPY (CHK-DISPLAYP DPY))
  75.                (EVENT (MAKE-BYTEV 96))
  76.                (PREDICATE PREDICATE)
  77.                (ARG (CHK-CHARP ARG))
  78.                (RETURN-VALUE (XCHECKIFEVENT* DPY EVENT PREDICATE ARG)))
  79.               (RETURN RETURN-VALUE (CONS 'XEVENTP EVENT))))
  80. (DEFINE-FOREIGN XPEEKIFEVENT*
  81.                 ("XPeekIfEvent" (IN REP/C-POINTER)
  82.                                 (IN REP/EXTEND)
  83.                                 (IN REP/EXTEND)
  84.                                 (IN REP/C-POINTER))
  85.                 IGNORE)
  86. (DEFINE (XPEEKIFEVENT DPY PREDICATE ARG)
  87.         (LET* ((DPY (CHK-DISPLAYP DPY))
  88.                (EVENT (MAKE-BYTEV 96))
  89.                (PREDICATE PREDICATE)
  90.                (ARG (CHK-CHARP ARG))
  91.                (RETURN-VALUE (BLOCK (XPEEKIFEVENT* DPY EVENT PREDICATE ARG)
  92.                                     '())))
  93.               (CONS 'XEVENTP EVENT)))
  94. (DEFINE-FOREIGN XWINDOWEVENT*
  95.                 ("XWindowEvent" (IN REP/C-POINTER)
  96.                                 (IN REP/INTEGER)
  97.                                 (IN REP/INTEGER)
  98.                                 (IN REP/EXTEND))
  99.                 IGNORE)
  100. (DEFINE (XWINDOWEVENT DPY W MASK)
  101.         (LET* ((DPY (CHK-DISPLAYP DPY))
  102.                (W W)
  103.                (MASK MASK)
  104.                (EVENT (MAKE-BYTEV 96))
  105.                (RETURN-VALUE (BLOCK (XWINDOWEVENT* DPY W MASK EVENT) '())))
  106.               (CONS 'XEVENTP EVENT)))
  107. (DEFINE-FOREIGN XCHECKWINDOWEVENT*
  108.                 ("XCheckWindowEvent" (IN REP/C-POINTER)
  109.                                      (IN REP/INTEGER)
  110.                                      (IN REP/INTEGER)
  111.                                      (IN REP/EXTEND))
  112.                 REP/INTEGER)
  113. (DEFINE (XCHECKWINDOWEVENT DPY W MASK)
  114.         (LET* ((DPY (CHK-DISPLAYP DPY))
  115.                (W W)
  116.                (MASK MASK)
  117.                (EVENT (MAKE-BYTEV 96))
  118.                (RETURN-VALUE (XCHECKWINDOWEVENT* DPY W MASK EVENT)))
  119.               (RETURN RETURN-VALUE (CONS 'XEVENTP EVENT))))
  120. (DEFINE-FOREIGN XMASKEVENT*
  121.                 ("XMaskEvent" (IN REP/C-POINTER)
  122.                               (IN REP/INTEGER)
  123.                               (IN REP/EXTEND))
  124.                 IGNORE)
  125. (DEFINE (XMASKEVENT DPY MASK)
  126.         (LET* ((DPY (CHK-DISPLAYP DPY))
  127.                (MASK MASK)
  128.                (EVENT (MAKE-BYTEV 96))
  129.                (RETURN-VALUE (BLOCK (XMASKEVENT* DPY MASK EVENT) '())))
  130.               (CONS 'XEVENTP EVENT)))
  131. (DEFINE-FOREIGN XCHECKMASKEVENT*
  132.                 ("XCheckMaskEvent" (IN REP/C-POINTER)
  133.                                    (IN REP/INTEGER)
  134.                                    (IN REP/EXTEND))
  135.                 REP/INTEGER)
  136. (DEFINE (XCHECKMASKEVENT DPY MASK)
  137.         (LET* ((DPY (CHK-DISPLAYP DPY))
  138.                (MASK MASK)
  139.                (EVENT (MAKE-BYTEV 96))
  140.                (RETURN-VALUE (XCHECKMASKEVENT* DPY MASK EVENT)))
  141.               (RETURN RETURN-VALUE (CONS 'XEVENTP EVENT))))
  142. (DEFINE-FOREIGN XCHECKTYPEDEVENT*
  143.                 ("XCheckTypedEvent" (IN REP/C-POINTER)
  144.                                     (IN REP/INTEGER)
  145.                                     (IN REP/EXTEND))
  146.                 REP/INTEGER)
  147. (DEFINE (XCHECKTYPEDEVENT DPY TYPE)
  148.         (LET* ((DPY (CHK-DISPLAYP DPY))
  149.                (TYPE TYPE)
  150.                (EVENT (MAKE-BYTEV 96))
  151.                (RETURN-VALUE (XCHECKTYPEDEVENT* DPY TYPE EVENT)))
  152.               (RETURN RETURN-VALUE (CONS 'XEVENTP EVENT))))
  153. (DEFINE-FOREIGN XCHECKTYPEDWINDOWEVENT*
  154.                 ("XCheckTypedWindowEvent" (IN REP/C-POINTER)
  155.                                           (IN REP/INTEGER)
  156.                                           (IN REP/INTEGER)
  157.                                           (IN REP/EXTEND))
  158.                 REP/INTEGER)
  159. (DEFINE (XCHECKTYPEDWINDOWEVENT DPY W TYPE)
  160.         (LET* ((DPY (CHK-DISPLAYP DPY))
  161.                (W W)
  162.                (TYPE TYPE)
  163.                (EVENT (MAKE-BYTEV 96))
  164.                (RETURN-VALUE (XCHECKTYPEDWINDOWEVENT* DPY W TYPE EVENT)))
  165.               (RETURN RETURN-VALUE (CONS 'XEVENTP EVENT))))
  166. (DEFINE-FOREIGN XPUTBACKEVENT*
  167.                 ("XPutBackEvent" (IN REP/C-POINTER) (IN REP/C-POINTER))
  168.                 IGNORE)
  169. (DEFINE (XPUTBACKEVENT DPY EVENT)
  170.         (LET* ((DPY (CHK-DISPLAYP DPY))
  171.                (EVENT (CHK-XEVENTP EVENT))
  172.                (RETURN-VALUE (BLOCK (XPUTBACKEVENT* DPY EVENT) '())))
  173.               RETURN-VALUE))
  174. (DEFINE-FOREIGN XSENDEVENT*
  175.                 ("XSendEvent" (IN REP/C-POINTER)
  176.                               (IN REP/INTEGER)
  177.                               (IN REP/INTEGER)
  178.                               (IN REP/INTEGER)
  179.                               (IN REP/C-POINTER))
  180.                 REP/INTEGER)
  181. (DEFINE (XSENDEVENT DPY W PROPAGATE EVENT_MASK EVENT)
  182.         (LET* ((DPY (CHK-DISPLAYP DPY))
  183.                (W W)
  184.                (PROPAGATE PROPAGATE)
  185.                (EVENT_MASK EVENT_MASK)
  186.                (EVENT (CHK-XEVENTP EVENT))
  187.                (RETURN-VALUE (XSENDEVENT* DPY W PROPAGATE EVENT_MASK EVENT)))
  188.               RETURN-VALUE))
  189. (DEFINE-FOREIGN XDISPLAYMOTIONBUFFERSIZE*
  190.                 ("XDisplayMotionBufferSize" (IN REP/C-POINTER))
  191.                 REP/INTEGER)
  192. (DEFINE (XDISPLAYMOTIONBUFFERSIZE DPY)
  193.         (LET* ((DPY (CHK-DISPLAYP DPY))
  194.                (RETURN-VALUE (XDISPLAYMOTIONBUFFERSIZE* DPY)))
  195.               RETURN-VALUE))
  196. (DEFINE-FOREIGN XGETMOTIONEVENTS*
  197.                 ("XGetMotionEvents" (IN REP/C-POINTER)
  198.                                     (IN REP/INTEGER)
  199.                                     (IN REP/INTEGER)
  200.                                     (IN REP/INTEGER)
  201.                                     (IN REP/EXTEND))
  202.                 REP/POINTER)
  203. (DEFINE (XGETMOTIONEVENTS DPY W START STOP)
  204.         (LET* ((DPY (CHK-DISPLAYP DPY))
  205.                (W W)
  206.                (START START)
  207.                (STOP STOP)
  208.                (NEVENTS (MAKE-BYTEV 4))
  209.                (RETURN-VALUE (CONS 'XTIMECOORDAP
  210.                                    (XGETMOTIONEVENTS* DPY W START STOP NEVENTS))))
  211.               (RETURN RETURN-VALUE (MREF-INTEGER NEVENTS 0))))
  212. (DEFINE-FOREIGN XSETAFTERFUNCTION*
  213.                 ("XSetAfterFunction" (IN REP/C-POINTER) (IN REP/EXTEND))
  214.                 REP/POINTER)
  215. (DEFINE (XSETAFTERFUNCTION DPY FUNC)
  216.         (LET* ((DPY (CHK-DISPLAYP DPY))
  217.                (FUNC FUNC)
  218.                (RETURN-VALUE (XSETAFTERFUNCTION* DPY FUNC)))
  219.               RETURN-VALUE))
  220. (DEFINE-FOREIGN XSYNCHRONIZE*
  221.                 ("XSynchronize" (IN REP/C-POINTER) (IN REP/INTEGER))
  222.                 REP/POINTER)
  223. (DEFINE (XSYNCHRONIZE DPY ONOFF)
  224.         (LET* ((DPY (CHK-DISPLAYP DPY))
  225.                (ONOFF ONOFF)
  226.                (RETURN-VALUE (XSYNCHRONIZE* DPY ONOFF)))
  227.               RETURN-VALUE))
  228. (DEFINE-FOREIGN XSETERRORHANDLER* ("XSetErrorHandler" (IN REP/EXTEND)) IGNORE)
  229. (DEFINE (XSETERRORHANDLER HANDLER)
  230.         (LET* ((HANDLER HANDLER)
  231.                (RETURN-VALUE (BLOCK (XSETERRORHANDLER* HANDLER) '())))
  232.               RETURN-VALUE))
  233. (DEFINE-FOREIGN XGETERRORTEXT*
  234.                 ("XGetErrorText" (IN REP/C-POINTER)
  235.                                  (IN REP/INTEGER)
  236.                                  (IN REP/EXTEND)
  237.                                  (IN REP/INTEGER))
  238.                 IGNORE)
  239. (DEFINE (XGETERRORTEXT DPY CODE NBYTES)
  240.         (LET* ((DPY (CHK-DISPLAYP DPY))
  241.                (CODE CODE)
  242.                (BUFFER (MAKE-BYTEV 1))
  243.                (NBYTES NBYTES)
  244.                (RETURN-VALUE (BLOCK (XGETERRORTEXT* DPY CODE BUFFER NBYTES)
  245.                                     '())))
  246.               (MREF-8-U BUFFER 0)))
  247. (DEFINE-FOREIGN XGETERRORDATABASETEXT*
  248.                 ("XGetErrorDatabaseText" (IN REP/C-POINTER)
  249.                                          (IN REP/STRING)
  250.                                          (IN REP/STRING)
  251.                                          (IN REP/STRING)
  252.                                          (IN REP/EXTEND)
  253.                                          (IN REP/INTEGER))
  254.                 IGNORE)
  255. (DEFINE (XGETERRORDATABASETEXT DPY NAME TYPE DEFAULTP NBYTES)
  256.         (LET* ((DPY (CHK-DISPLAYP DPY))
  257.                (NAME (IF (STRING? NAME)
  258.                          (STRING->ASCIZ! NAME)
  259.                          (ERROR "Argument is incorrect type: ~s" NAME)))
  260.                (TYPE (IF (STRING? TYPE)
  261.                          (STRING->ASCIZ! TYPE)
  262.                          (ERROR "Argument is incorrect type: ~s" TYPE)))
  263.                (DEFAULTP (IF (STRING? DEFAULTP)
  264.                              (STRING->ASCIZ! DEFAULTP)
  265.                              (ERROR "Argument is incorrect type: ~s" DEFAULTP)))
  266.                (BUFFER (MAKE-BYTEV 1))
  267.                (NBYTES NBYTES)
  268.                (RETURN-VALUE (BLOCK (XGETERRORDATABASETEXT* DPY
  269.                                                             NAME
  270.                                                             TYPE
  271.                                                             DEFAULTP
  272.                                                             BUFFER
  273.                                                             NBYTES)
  274.                                     '())))
  275.               (MREF-8-U BUFFER 0)))
  276. (DEFINE-FOREIGN XDISPLAYNAME* ("XDisplayName" (IN REP/STRING)) REP/POINTER)
  277. (DEFINE (XDISPLAYNAME DISPLAY)
  278.         (LET* ((DISPLAY (IF (STRING? DISPLAY)
  279.                             (STRING->ASCIZ! DISPLAY)
  280.                             (ERROR "Argument is incorrect type: ~s" DISPLAY)))
  281.                (RETURN-VALUE (ASCIZ->STRING (XDISPLAYNAME* DISPLAY))))
  282.               RETURN-VALUE))
  283. (DEFINE-FOREIGN XSETIOERRORHANDLER*
  284.                 ("XSetIOErrorHandler" (IN REP/EXTEND))
  285.                 IGNORE)
  286. (DEFINE (XSETIOERRORHANDLER HANDLER)
  287.         (LET* ((HANDLER HANDLER)
  288.                (RETURN-VALUE (BLOCK (XSETIOERRORHANDLER* HANDLER) '())))
  289.               RETURN-VALUE))
  290.